home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Serious Demos / Crimson Demo / Crimson Demos / Progress Bar / Initial next >
Text File  |  1997-06-17  |  109b  |  7 lines
  1. Global BarPosition As Integer
  2.  
  3.     BarPosition=0
  4.     PBDemo.OpenWindow
  5.     Do Draw_Bar
  6.     PBDemo.ShowWindow
  7.